home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / paragen2.zip / DEMOINV.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-28  |  970b  |  39 lines
  1. {$N+,F+}
  2.  
  3. PROGRAM DEMOInv;
  4.  
  5. USES
  6.     Crt,Pxengine,Invoice;
  7.  
  8. VAR
  9.     Demo : INVOICETABLEENTRY;
  10.  
  11. (*----------------------------------------------------------------
  12.                           MAIN PROGRAM                  
  13. -----------------------------------------------------------------*)
  14.  
  15. Begin
  16.     if (PXInit <> PXSUCCESS) then
  17.         Begin
  18.             Writeln('Unable to initialize PARADOX Engine');
  19.             Exit;
  20.         End;
  21.  
  22.     if (INVOICETblOpen(NoPassword) <> PXSUCCESS) then
  23.         Begin
  24.             Writeln('Unable to open INVOICE table');
  25.             Exit;
  26.         End;
  27.     Demo.ShipVia := 'UPS 2 Day';
  28.     INVOICERet := INVOICESrchFld(SearchFirst,'Ship Via',Demo);
  29.     Repeat
  30.         Writeln('Invoice [',Demo.InvoiceNumber:10:0,']  Method [',Demo.ShipVia,']');
  31.     Until ((INVOICESrchFld(SearchNext,'Ship Via',Demo)) <> PXSUCCESS);
  32.     if (INVOICETblClose <> PXSUCCESS) then
  33.         Writeln('Unable to close INVOICE table');
  34.     if (PXExit <> PXSUCCESS) then
  35.         Writeln('Unable to close down PARADOX Engine');
  36.  
  37. End.
  38. 
  39.